﻿Option Explicit On
Imports System

Imports System.Data.Common

Namespace PDataSetTableAdapters
    Partial Public Class BudgetRevPlansTableAdapter
        Inherits System.ComponentModel.Component

        Public Function GetDataByFilter(ByVal dataTable As PDataSet.BudgetRevPlansDataTable, ByVal SQLExpression As String) As Integer
            Dim text1 As String
            text1 = Me.CommandCollection(0).CommandText
            Try
                Me.CommandCollection(0).CommandText = SQLExpression
                Return Me.Fill(dataTable)
            Catch ex As Exception

            Finally
                Me.CommandCollection(0).CommandText = text1
            End Try
        End Function

    End Class

    Partial Public Class BudgetRevPlans2TableAdapter
        Inherits System.ComponentModel.Component

        Public Function GetDataByFilter(ByVal dataTable As PDataSet.BudgetRevPlans2DataTable, ByVal SQLExpression As String) As Integer
            Dim text1 As String
            text1 = Me.CommandCollection(0).CommandText
            Try
                Me.CommandCollection(0).CommandText = SQLExpression
                Return Me.Fill(dataTable)
            Catch ex As Exception

            Finally
                Me.CommandCollection(0).CommandText = text1
            End Try
        End Function

    End Class
End Namespace
